home *** CD-ROM | disk | FTP | other *** search
/ Tux Racer / Tux Racer.iso / program files / Sunspire Studios / Tux Racer / characters / tux / actions.tcl next >
Encoding:
Text File  |  2001-05-07  |  280 b   |  10 lines
  1. objcreate {s_container} {actions}
  2. objcreate {s_container} {actions:anim}
  3.  
  4. foreach anim [objget anim children] {
  5.     set anim_name [objget $anim basename]
  6.     objcreate {s_action_anim} actions:anim:$anim_name \
  7.         {-root_anim} $anim \
  8.         {-root_object} {sg:tuxroot}
  9. }
  10.